home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abj.d64 / basic quiz (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  228 lines
  1. 1 REM [DR. SHILLING 4/10/84]
  2. 2 REM: BASIC QUIZZ FOR WOULD-BE HACKERS
  3. 3 C$=CHR$(34)
  4. 4 TI$ = "000000"
  5. 5 Y$ = ""
  6. 6 REM [TO RUN THE QUIZZ, JUST 'RUN']
  7. 7 REM [TO EXAMINE PROBLEMS, 'RUN 1300']
  8. 8 GOTO 50
  9. 9 REM (LINES 10-30 ARE RESERVED)
  10. 49 STOP
  11. 50 PRINT"[147]"
  12. 52 PRINT"I AM YOUR USER-FRIENDLY COMMODORE-64"
  13. 54 PRINT
  14. 56 PRINT"       BASIC QUIZZ NO. 1"
  15. 58 PRINT
  16. 60 PRINT"MY FIRST PROGRAM IS:":PRINT
  17. 62 PRINT"  10 A% = 33000 "
  18. 64 PRINT"  11 ? A% "
  19. 66 PRINT:PRINT"BUT WHEN YOU RUN IT, I WILL TELL YOU:"
  20. 68 PRINT
  21. 70 PRINT "? ILLEGAL QUANTITY ERROR IN 10"
  22. 71 IF Y$ <> "YES" THEN 74
  23. 72 PRINT" (ENTER PROGRAM LINES WITH CURSOR, THEN RUN '10' TO VERIFY)":STOP
  24. 74 PRINT:PRINT"DO YOU WANT TO KNOW WHY?"
  25. 76 INPUT" (PRESS RETURN KEY)";K$
  26. 78 PRINT"[145][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  27. 80 PRINT:PRINT"I CAN'T HANDLE INTEGERS LARGER"
  28. 82 PRINT"  THAN 32767  -  THAT'S WHY."
  29. 84 PRINT
  30. 86 INPUT" (PRESS RETURN KEY TO CONTINUE)";K$
  31. 100 PRINT"[147]"
  32. 102 PRINT"       BASIC QUIZZ NO. 2"
  33. 104 PRINT
  34. 110 PRINT"MY NEXT PROGRAM IS:":PRINT
  35. 120 PRINT"  12 DIM F (10), G (20)"
  36. 130 PRINT"  13 DIM F1 % (11)"
  37. 140 PRINT"  14 DIM F3 (1,2,3,4,5,6)"
  38. 150 PRINT"  15 DIM FF1 (5)"
  39. 160 PRINT"  16 DIM FF2 (55)"
  40. 170 PRINT
  41. 180 PRINT"HERE IS THE PROBLEM:"
  42. 190 PRINT"  IF YOU TYPE 'RUN 12'  I WILL GIVE YOU  THE MESSAGE:"
  43. 200 PRINT"  ? REDIM'D ARRAY ERROR IN 16"
  44. 202 IF Y$ <> "YES" THEN 210
  45. 205 PRINT# (ENTER PROGRAM LINES WITH CURSOR, THEN RUN '12' TO VERIFY):STOP
  46. 210 PRINT:PRINT"WHY?  WHAT'S WRONG?"
  47. 220 INPUT"(PRESS RETURN KEY FOR ANSWER";K$
  48. 230 PRINT"[145][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  49. 234 PRINT
  50. 240 PRINT"SORRY, BUT I CAN READ ONLY THE FIRST TWO CHARACTERS OF ANY VARIABLE."
  51. 250 PRINT"  FF1 AND FF2 ARE THE SAME TO ME!"
  52. 260 PRINT"(AND YOU MUST NOT DIMENSION A VARIABLE  MORE THAN ONCE)."
  53. 280 PRINT
  54. 290 INPUT" (PRESS RETURN KEY TO GO ON)";K$
  55. 300 PRINT"[147]"
  56. 302 PRINT"       BASIC QUIZZ NO. 3"
  57. 304 PRINT
  58. 310 PRINT"MY NEXT PROGRAM IS:":PRINT
  59. 320 PRINT 17"CLYDE = 999:? CLYDE"
  60. 330 PRINT 18"GER $ = "C$ "GERRY" C$ ":? GER $"
  61. 340 PRINT 19"LOR $ = "C$ "LORNA" C$ ":? LOR $"
  62. 350 PRINT
  63. 360 PRINT "HERE IS THE PROBLEM:"
  64. 370 PRINT "   IF YOU TYPE 'RUN 17'  I WILL PRINT:"
  65. 380 PRINT
  66. 400 CLYDE = 999 : PRINT CLYDE
  67. 410 GER$ = "GERRY" : PRINT GER$
  68. 430 PRINT"?SYNTAX ERROR IN 19"
  69. 440 PRINT
  70. 450 PRINT "  W H Y  ??  WHAT'S WRONG?"
  71. 460 PRINT
  72. 462 IF Y$ <> "YES" THEN 470
  73. 465 PRINT" (ENTER PROGRAM LINES WITH CURSOR, THEN RUN '17' TO VERIFY":STOP
  74. 470 INPUT" (PRESS RETURN KEY TO GO ON)";K$
  75. 482 PRINT"[145][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  76. 490 PRINT
  77. 500 PRINT "LOR $ CONTAINS THE BASIC KEYWORD 'OR'!"
  78. 510 PRINT "  THE SAME THING WOULD HAPPEN, IF YOU     USED, FOR EXAMPLE,"
  79. 520 PRINT "  'LAND' INSTEAD OF 'CLYDE' IN LINE 17."
  80. 530 INPUT " (PRESS RETURN TO GO ON)";K$
  81. 600 PRINT "[147]"
  82. 602 PRINT "       BASIC QUIZZ NO.4"
  83. 610 PRINT "MY NEXT PROGRAM IS:"
  84. 612 PRINT
  85. 630 PRINT"20 INPUT"  C$ "YES OR NO" C$"; Y$
  86. 640 [153]"21 IF Y$ <> " C$ "YES" C$ " OR Y$ <> " C$ "NO" C$ " THEN 20"
  87. 650 [153]"22 IF Y$ <> " C$ "YES" C$ "AND Y$ <> " C$ "NO" C$ "THEN 20"
  88. 660 [153]"23 IF Y$ = " C$ "YES" C$ " OR  Y$ = " C$ "NO" C$ " THEN 20"
  89. 670 [153]"24 IF Y$ = "C$ "YES" C$ "AND Y$ = " C$ "NO" C$ "THEN 20"
  90. 680 [153]
  91. 700 [153] "HERE IS THE PROBLEM:"
  92. 710 [153]:[153] "YOU WANT TO MAKE SURE THAT NOTHING BUT"
  93. 712 [153]"  EITHER 'YES' OR 'NO' IS ENTERED"
  94. 714 [153]"  AS 'Y$' IN LINE 20."
  95. 716 [153]"IF NOT, ASK FOR INPUT AGAIN."
  96. 718 [153]
  97. 720 [153]" WHICH IS CORRECT, LINE 21, OR LINE 22, OR LINE 23, OR LINE 24?"
  98. 740 [153]
  99. 742 [139] Y$ [179][177] "YES" [167] 750
  100. 745 [153]" (ENTER WITH CURSOR, BUT DO NOT RUN '20'. IT WILL HANG-UP !)"
  101. 750 [133] "READY FOR THR ANSWER? (PRESS RETURN KEY)";K$
  102. 762 [153]"ONTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
  103. 770 [153]"  O N L Y   LINE  22 IS CORRECT!:"
  104. 772 [153]
  105. 780 [153]"WARNING: IF YOU TRY OTHERS, WATCH OUT;"
  106. 790 [153]" I MAY HANG UP YOUR PROGRAM WITH SOME"
  107. 792 [153]" OR THE OTHER LINES..."
  108. 796 [133]" (PRESS RETURN KEY TO GO ON)"; K$
  109. 800 [153]"LOAD"
  110. 810 [153]"       BASIC QUIZZ NO. 5"
  111. 820 [153]"MY NEXT PROGRAM IS:"
  112. 822 [153]
  113. 824 [153]"  25 X = SQR(100) : Y = 10"
  114. 826 [153]"  26 PRINT " C$ "X=" C$ "X " C$ "  Y=" C$ "Y " C$ "  X-Y=" C$ " X - Y"
  115. 828 [153]"  27 IF X <. Y THEN PRINT " ; : [153] C$ "WRONG !"
  116. 830 [153]
  117. 832 [153]"IF I 'RUN' I PRINT AS FOLLOWS:"
  118. 842 X [178] [186](100): Y [178] 10
  119. 844 [153]"  X=" X"   Y=" Y"   X-Y="X[171]Y
  120. 846 [139] X [179][177] Y [167] [153] "  WRONG !"
  121. 848 [153]
  122. 850 [153]"I FIND INDEED THAT THE SQUARE-ROOT OF 100 IS NOTWAIT EQUAL TO 10 !"
  123. 860 [153]
  124. 862 [139] Y$ [179][177] "YES" [167] 870
  125. 865 [153] "(ENTER PROGRAMS LINES WITH CURSOR, THEN RUN '25' TO VERIFY)":[144]
  126. 870 [153]"DO YOU WANT TO KNOW WHY NOT?"
  127. 880 [133]"(PRESS RETURN KEY)";K$
  128. 892 [153]"ONTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
  129. 900 [153]"BECAUSE WHILE I PRINT :X=" X
  130. 910 [153]"                  AND: Y=" Y
  131. 920 [153]:[153]"I CALCULATED THAT THERE IS A DIFFERENCE BETWEEN X AND Y OF"X[171]Y
  132. 940 [153]
  133. 950 [153]"  IT IS ONLY .0000000037252903  BUT....."
  134. 960 [153]"   I HAVE TROUBLE WITH CERTAIN DECIMAL     FRACTIONS (SUCH AS .33333)"
  135. 970 [153]
  136. 980 [133] "(PRESS RETURN KEY TO GO ON)";K$
  137. 1000 [153]"LOAD"
  138. 1002 [153]"       BASIC QUIZZ NO. 6"
  139. 1004 [153]
  140. 1005 C$[178][199](34)
  141. 1010 [153]"MY NEXT NEXT PROGRAM IS:":[153]
  142. 1020 [153] 29 "PRINT CHR$ (14)"
  143. 1030 [153]" 30 PRINT";:[153] C$"(null)LEFT$VAL (null)(null)RIGHT$LEN(null) PEEK(null)(null)(null)(null) ASC(null)(null) MID$(null)(null)(null)VALSTR$ (null)(null)VAL(null) (null)LEFT$VAL (null)ATN(null)(null) STR$(null)CHR$."
  144. 1040 [153]
  145. 1050 [153] "HERE IS THE PROBLEM:"
  146. 1052 [153] "     WHAT DOES IT MEAN,"
  147. 1054 [153] " AND HOW DID I DO THAT?"
  148. 1056 [139] Y$ [179][177] "YES" [167] 1058
  149. 1057 [153] "(ENTER PROGRAM LINES WITH CURSOR, THEN RUN '29' TO VERIFY)":[144]
  150. 1058 [153]
  151. 1060 [153]" (PRESS ANY KEY TO GO ON)"
  152. 1062 [161] K$: [139] K$[178]"" [167] 1062
  153. 1070 [153]"ON                     "
  154. 1080 [153]"ON                         "
  155. 1082 [153]"ON                         "
  156. 1084 [153]"ON                         "
  157. 1086 [153]"ON                         "
  158. 1090 [153]"ONONONONONON"
  159. 1100 [153] [199](14)
  160. 1110 [153]
  161. 1120 [153]" (null)(null)(null) LENATN(null) (null)(null)(null) (null)VALATNSTR$ (null)RIGHT$(null)VAL 30 ?"
  162. 1130 [153]
  163. 1140 [153]"CLOSE((null)(null)VAL(null)(null) ATN(null)(null)CLOSE(null)VAL(null)CLOSE(null)(null)CLOSECHR$(null)CLOSE(null)(null))"
  164. 1142 [161] K$:[139]K$[178]"" [167] 1142
  165. 1144 [153]"ONTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
  166. 1146 [153] [199](142)
  167. 1150 [153]" WELL, IT'S REALLY SIMPLE:"
  168. 1160 [153]"I JUST TYPED SHIFTED LETTERS;"
  169. 1162 [153]"AND THEY CAME OUT AS SYMBOLS."
  170. 1164 [153]" IF YOU REALLY WANT TO CONFUSE YOURSELF"
  171. 1166 [153]" STUDY PAGE 74 OF THE C-64 PROGRAMMER'S  REFERENCE GUIDE. HAVE FUN!"
  172. 1170 [153]
  173. 1172 [129] T[178]1 [164] 2000:[130] T
  174. 1173 [153] [199](14)
  175. 1174 [129] T[178]1 [164] 1000:[130] T
  176. 1175 [153] [199](142)
  177. 1177 [153]"ONONON"
  178. 1180 [133]" (PRESS RETURN KEY TO CONTINUE)"; K$
  179. 1200 [153] "LOAD"
  180. 1220 [153]"  I AM GETTING TO FANCY;"
  181. 1222 [153]"  ENOUGH OF THIS STUFF."
  182. 1226 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
  183. 1240 [156]
  184. 1250 [153]"THE PROGRAM LENGTH WAS:" ; 38909 [171] ( [184](1) [171] ([184](1) [179]0 ) [172] 65536 )
  185. 1252 [153]"  FREE BYTES REMAINING."; [184](1) [171] ( [184](1)[179]0)[172] 65536
  186. 1255 [153]
  187. 1260 J1 [178] TI[173]216000:J2[178](J1[171][181](J1) ) [172] 60:J3 [178] ( J2[171][181](J2) ) [172] 60
  188. 1262 JX[178]J3:J3 [178] [181](JX[170].5)
  189. 1264 [153]"  SINCE YOU STARTED THIS QUIZZ,"
  190. 1266 [153]"THE FOLLOWING TIMES HAS ELAPSED:"
  191. 1270 [153]
  192. 1272 [153] [181](J1) "HOURS"[181](J2)"MINUTES"(J3)"SECONDS"
  193. 1274 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
  194. 1280 [153]"PS.:  DO YOU WANT TO EXAMINE WHETHER I        HAVE SPOKEN TRUE ?"
  195. 1282 [133]"YES OR NO";Y$
  196. 1284 [139] Y$ [179][177] "YES" [175] Y$ [179][177] "NO" [167] [153] "TRY AGAIN":[137] 1282
  197. 1290 [153]"   (null)        (null)    END   (null)         (null)"
  198. 1292 [153]"            (null)    73   (null)"
  199. 1294 [153]
  200. 1296 [153]"  AU REVOIR  FROM YOUR FRIENDLY C-64."
  201. 1299 [128]
  202. 1300 [153]"LOAD"
  203. 1310 [153]"INSTRUCTIONS FOR TRUE HACKERS:"
  204. 1320 [153]
  205. 1330 [153]"WHENEVER A 'BREAK' OCCURES,"
  206. 1340 [153]
  207. 1350 [153]"1. GO UP WITH CURSOR TO THE TOPMOST"
  208. 1352 [153]"NUMBERED PROGRAM LINE"
  209. 1354 [153]"2. HIT THE RETURN KEY FOR EACH NUMBERED"
  210. 1356 [153]"PROGRAM LINE"
  211. 1358 [153]"3. INPORTANT: DO NOT HIT THE RETURN KEY ANY FURTHER !"
  212. 1360 [153]"4. MOVE CURSOR DOWN BELOW 'READY.'"
  213. 1362 [153]
  214. 1364 [153]"THE NUMBERED QUIZ LINES ARE NOW"
  215. 1366 [153]"ENTERED BETWEEN LINES 10 AND 30 AS PART"
  216. 1368 [153]"OF THE MAIN PROGRAM."
  217. 1372 [153]"(LATER, 'LIST-30' AND SEE.)"
  218. 1374 [153]"NOW: 'RUN 10' OR 12 OR 17 OR 25 OR 29 AS INDICATED ON THE SCREEN."
  219. 1380 [153]"['RUN 20' WILL HANG-UP OF COURSE ![]]"
  220. 1382 [153]
  221. 1384 [153]"REMEMBER, TO ENTER THE PROBLEMS THIS WAY JUST  'RUN 1300'."
  222. 1386 [153]
  223. 1400 C$ [178] [199](34) : T$ [178] "YES"
  224. 1410 [153]"O.K.  WHICH QUIZZ DO YOU WANT TO CHECK:"
  225. 1420 [133]"QUIZZ NUMBER (BETWEEN 1 AND 6)";N%
  226. 1440 [145] N% [137] 54,100,300,600,800,1000,1450
  227. 1450 [137] 1290
  228.